home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-01_1988_-_de_Side_B.d64 / verlies (anle) (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  237 lines
  1. 0 poke808,234:poke55,255:poke56,63:ifpeek(819)<>245thensys64738
  2. 1 v=53248:d$="":print"[147]"d$
  3. 2 printchr$(8)chr$(142)spc(7)"[158][198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
  4. 3 [153][166]7)" getrndrndgetnewrndgetnewnewgetnewrndgetnewrndwaitlogrndnewgetnewrndgetnewrnd
  5. 4 printspc(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
  6. 5 [153][166]7)" waitloglogloglog  lognewnewwaitloglognewwaitlog log lognewwaitlognewnewwaitloglogrnd
  7. 6 printspc(7)"[175][146] s  o  f  t  w  a  r  e[158][161]
  8. 7 [153][166]7)"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew
  9. 8 fori=0to17:print:fork=0to9:nextk,i:print"
  10. 9 u$[178]"newnewnewnewnewnewnewnewnewnewnewnewnewposandto          toandposnew"
  11. 10 j$[178]"wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait waittab(waitusrwaitfrenewposandto toandposnewwaitfrewaitusrwaittab("
  12. 11 [129]i[178]1[164]13:[153]""[166]7)[202](u$,i,13)[202](u$,32[171]i)
  13. 12 [153][166]7)[202](j$,i[170]i,26)[202](j$,77[171]i[171]i):[130]
  14. 13 u$[178]"        p r e s e n t s":[129]i[178]1[164]8
  15. 14 [153]""[166]11)[202](u$,i,9)[202](u$,25[171]i):[129]j[178]0[164]99:[130]j,i
  16. 20 [129]i[178]0[164]800:[130]:[158]16384:[129]i[178]1[164]7:f$[178][202]("stoppokeprint#listsysfor",i,1):[141]30:[130]
  17. 21 [129]i[178]0[164]800:[130]:[153][166]6)"def (NULL)str$right$(NULL)right$(NULL)(NULL)  =tanright$(NULL)(NULL)=(NULL)right$ right$(NULL)right$(NULL)(NULL)str$right$
  18. 22 printspc(6)"[156][213][171][192][179][221][221][221][221]  [171][179] [221] [221] [221] [221][221][221][221][199][192][174]
  19. 24 [153][166]6)"print#mid$(NULL) (NULL)(NULL)mid$(NULL)/tanexp>tan(NULL)(NULL)mid$(NULL) mid$asc(NULL)(NULL)mid$(NULL)mid$asc(NULL)
  20. 26 fori=0to800:next:print"[150][ f 1 ] [154]- ausgabe auf dem bildschirm
  21. 28 [153]"def[ f 3 ] cont- ausgabe auf dem drucker
  22. 29 print"[150][ f 7 ] [154]- spiel laden":poke198,0:goto50
  23. 30 printleft$(d$,9)f$"[183][187][172][146] [183][187][172][146][184][183][183][163][163][163][163]
  24. 31 [153]" getwaitget  getwaitgetlog toandtologwaitlog toandtologwaitlog waitcos   log waitcoslog toandtologwait costoandtologwait";
  25. 32 [153]" absabswait  intwaitint sgnwaitsgn    sgnwaitsgn  sgnwaitsgnsgnwaitsgn    sgnwaitsgn sgnwaitsgn   ++wait   log";
  26. 33 [153]" thenthenwait  fnwaitfn intwaitinttoand  intwaitinttoand wait intwaitint    intwaitint intwaitinttoand   waitrndto
  27. 34 print"   [146]   [146]  [161] [164][170][146]  [161] [164] [146][190] [161][146][161]    [161][146][161] [161] [164][170][146]  [188] [164] [146][187]";
  28. 35 print"  [181][146][181][182][182][146]  [181][146][181]    [181][146][181] [180][146][180] [181][146][181]    [181][146][181] [181][146][181]       [181][182][146]";
  29. 36 print"  [182][188][190][146][181]  [180][146][180]    [180][146][180] [181][146][181] [180][146][180]    [180][146][180] [180][146][180]    [187]  [182][170][146]";
  30. 37 print"   [187][172][146]  [172] [163][183][163][172][146][172] [146][187] [190][188][146][172] [163][183][163][172][146][172] [146][187][172] [163][183][163][172][146] [187] [163] [146][190]":return
  31. 50 getu$:ifu$="[133]"goto250
  32. 60 ifu$="[134]"thenprintchr$(14):sys16516:goto490
  33. 70 ifu$="[136]"goto600
  34. 80 goto50
  35. 90 z=4:n=0:print"";
  36. 100 readu$:ifu$="*"goto260
  37. 110 n=n+1:ifu$="@"thenprint:goto130
  38. 120 printu$
  39. 130 ifn<19goto100
  40. 140 goto260
  41. 175 u=0:goto100
  42. 215 goto170
  43. 250 print"[156][147][176]";:s=s+1:fori=1to19:print"[192][192]";:next:print"[174]";
  44. 252 print"[221]"spc(38)"[221]";:print"[173]";:fori=1to19:print"[192][192]";:next:print"[189]
  45. 254 [129]i[178]0[164]1:[153][200](d$,20[172]i[170]3);:[129]j[178]1[164]20:[153]"tantan";:[130]j,i
  46. 256 [153][199](14)"clr/cmdcmdexp
  47. 257 print"[150] [193]nleitung [158]* [214] [197] [210] [204] [201] [197] [211] *[154] [211]eite:"s"[153]"n$;
  48. 258 iflen(n$)>0thenprint"";
  49. 259 t=n:goto90
  50. 260 printleft$(d$,24)" [198]1 [146][158]-[211]tart   [198]7 [146][158]-[215]eiter   [198]8 [158][146]-[204]aden
  51. 262 [161]o$:[139]o$[178]"input"[167][138]
  52. 263 [139]o$[178]"let"[175]u$[178]"*"[167][138]
  53. 264 [139]o$[178]"let"[137]250
  54. 266 [139]o$[178]"restore"[137]600
  55. 268 [137]262
  56. 290 n[178]0
  57. 300 [135]u$:[139]u$[178]"*"[137]380
  58. 310 [139]u$[178]"@"[167][152]1:n[178]n[170]1:[137]360
  59. 320 [139][201](u$,1)[178]"-"[167][152]1,[200](u$,[195](u$)[171]1);:n[178]n[170]1:[137]340
  60. 330 [152]1,u$" ";:n[178]n[170]1
  61. 340 [135]u$:[139]u$[178]"@"[167][152]1:[152]1:n[178]n[170]1:[137]360
  62. 350 [152]1,u$
  63. 360 [139]n[179]53[137]300
  64. 380 [139]n[179]54[167]n[178]n[170]1:[152]1:[137]380
  65. 460 [129]i[178]1[164]39:[152]1,"tantan";:[130]:[152]1
  66. 470 [152]1,"(len)opyright 1987 by right$(NULL)(NULL)val(NULL)atn(NULL)(NULL)(NULL) (NULL)(NULL)asc(NULL)(NULL)atn(NULL)val":[160]1:[139]u$[178]"*"[167][138]
  67. 490 s[178]s[170]1:[153][202]("syscontclrdefopen",6[172][187](1)[170]1,1)"loadpeekitte die"s"cmd. (NULL)eite einlegen und eine
  68. 491 print"[212]aste druecken.
  69. 500 [151]198,0:[146]198,1:[161]o$:[153]"(NULL)kay, ich drucke.":[159]1,4,10:[160]1
  70. 510 [159]1,4,7:[152]1:[152]1,"atn(NULL)(NULL)valright$(NULL)(NULL)(NULL)chr$ fuer"[199](14)"     * (NULL) val (NULL) (NULL) right$ val (NULL) *";
  71. 515 [152]1,[199](15)"             (NULL)eite"s
  72. 516 [139]n$[177]""[167]n$[178]n$[170]" "
  73. 518 [129]i[178]1[164]39:[152]1,"tantan";:[130]:[152]1
  74. 520 [152]1:[152]1,n$;:t[178]n[170]1:[139]s[178]1[167][141]700:n[178]9:[129]i[178]1[164]5:[135]u$:[130]:[137]300
  75. 530 [137]290
  76. 600 [158]16516:[151]56,160:[151]55,0:[153]"loadstopp(NULL)43,140:p(NULL)44,65:p(NULL)16779,0:l(NULL)";
  77. 610 [153][199](8)[199](142)[199](34)"verlies (boot)"[199](34)",8
  78. 620 print"r[213]:"left$(d$,13)spc(8)"[158]etwas geduld bitte...[144]
  79. 630 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]
  80. 700 [152]1,[199](14)" *   * **** ****  *    *** ****  ****
  81. 710 print#1," *   * *    *   * *     *  *    *
  82. 720 [152]1," *   * ***  ****  *     *  ***   ***
  83. 730 print#1,"  * *  *    * *   *     *  *        *
  84. 740 [152]1,"   *   **** *  *  **** *** **** ****"[199](15):[142]
  85. 1000 [131]" *   * **** ****  *    *** ****  ****
  86. 1010 data" *   * *    *   * *     *  *    *
  87. 1020 [131]" *   * ***  ****  *     *  ***   ***
  88. 1030 data"  * *  *    * *   *     *  *        *
  89. 1040 [131]"   *   **** *  *  **** *** **** ****
  90. 1050 data@,"[215]illkommen zu [214][197][210][204][201][197][211], mein [198]reund.
  91. 1060 [131]"(NULL)val(NULL)(NULL)right$val(NULL) ist ein (NULL)ollenspieladventure,
  92. 1070 data"bei dem [196]u durch unterirdische [204]abyrin-
  93. 1080 [131]"the und chr$ewoelbe laufen und gegen (NULL)on-
  94. 1090 data"ster und [196]rachen kaempfen musst.
  95. 1100 [131]@,"str$abei hast str$u die (NULL)oeglichkeit, str$eine
  96. 1110 data"[193]usruestung zu verbessern, um dann ge-
  97. 1120 [131]"gen staerkere (NULL)ngeheuer antreten zu
  98. 1130 data"koennen.",@,"[196]abei fing alles so harmlos an...
  99. 1140 [131]@,"str$u machst gerade einen (NULL)paziergang im
  100. 1150 data"[215]ald. [196]as [215]etter ist schoen, die [211]onne
  101. 1160 [131]"scheint, die (NULL)oegel singen, und alles
  102. 1170 data"ist in bester [207]rdnung.
  103. 1180 [131]@,"(NULL)loetzlich gibt es einen (NULL)nall, und vor
  104. 1190 data"[196]ir erscheint die unheimliche [199]estalt
  105. 1200 [131]"eins daemonischen (NULL)agiers.
  106. 1210 data@,"[196]er [218]auberer stellt sich als [218]erborax
  107. 1220 [131]"vor und sagt, dass er str$ich mitnehmen
  108. 1230 data"wird. [197]r hebt die [200]and, es zischt, und
  109. 1240 [131]"str$ein peeklick verschwimmt.
  110. 1250 data@,"[193]ls die [211]icht wieder klar wird, hat
  111. 1260 [131]"sich alles veraendert. str$u bist in einem
  112. 1270 data"ganz anderen [215]ald. [196]uester drohend ste-
  113. 1280 [131]"hen uralte peekaeume dicht beieinander,
  114. 1290 data"und nur wenig [211]onnenlicht durchdringt
  115. 1300 [131]"die dunklen (NULL)chatten.
  116. 1310 data@,"[214]or [196]ir erscheint der [218]auberer und er-
  117. 1320 [131]"klaert, dass str$u str$ich nun im ascinsterwald
  118. 1330 data"befindest. [193]n diesem unheimlichen [207]rt
  119. 1340 [131]"gibt es etwas, dass er unbedingt benoe-
  120. 1350 data"tigt. [201]n der [211]pitze seines [218]auberstabes
  121. 1360 [131]"ist ein (NULL)och - dort fehlt etwas. vals
  122. 1370 data"handelt sich dabei um einen besonderen,
  123. 1380 [131]"magischen str$iamanten. (NULL)it ihm koennte er
  124. 1390 data"alle [205]acht der [215]elt besitzen.
  125. 1400 [131]@,"str$och der str$iamant liegt irgendwo tief
  126. 1410 data"unten in den [199]ewoelben des schreckli-
  127. 1420 [131]"chen (NULL)erlies des (NULL)odes,dessen valingang
  128. 1430 data"sich hinter [196]ir befindet, und wird von
  129. 1440 [131]"einem fuerchterlichen feuerspeienden
  130. 1450 data"[196]rachen bewacht.",@,"[214]iele hat der [218]auberer schon hinunter-
  131. 1460 [131]"geschickt, um den str$iamanten zu holen,
  132. 1470 data"doch keiner ist je zurueckgekehrt. [206]un
  133. 1480 [131]"sollst str$u hinein und es versuchen. (NULL)ei-
  134. 1490 data"gerst [196]u [196]ich, so wird er [196]ich toeten.
  135. 1500 [131]"str$u hast keine andere (NULL)ahl. left$aengenden","(NULL)opfes stimmst str$u zu.
  136. 1510 data@,"[196]er [218]auberer warnt [196]ich noch einmal,
  137. 1520 [131]"ihn nicht zu veraergern und keine
  138. 1530 data"[212]ricks zu versuchen. [196]ann gibt er [196]ir
  139. 1540 [131]"einige atnusruestungsgegenstaende mit.
  140. 1550 data@,"[196]u bekommst einen magischen [211]ack, in
  141. 1560 [131]"dem str$u so viel tragen kannst, wie str$u
  142. 1570 data"willst, neun [198]ackeln, weil es in den
  143. 1580 [131]"chr$aengen der chr$ewoelbe dunkel ist, zwei
  144. 1590 data"[200]eiltraenke und fuenf [200]eilsalben fuer
  145. 1600 [131]"str$eine (NULL)unden und einen str$olch als (NULL)affe.
  146. 1610 data"[196]anach erklaert er [196]ir das [214]erlies.
  147. 1620 [131]@,"vals besteht aus neun uebereinanderlie-
  148. 1630 data"genden [199]ewoelben, jedes fuer sich schon
  149. 1640 [131]"ein toedliches (NULL)abyrinth. right$n jedem chr$e-
  150. 1650 data"woelbe gibt es [203]erkerkammern. [196]arin be-
  151. 1660 [131]"findet sich immer eine (NULL)chatztruhe, in
  152. 1670 data"der [199]old, [215]affen, [218]aubersprueche, [193]us-
  153. 1680 [131]"ruestungsgegenstaende aber auch ascallen
  154. 1690 data"versteckt sein koennen. [196]och jeder [203]er-
  155. 1700 [131]"ker wird von einem der vielen schreck-
  156. 1710 data"lichen [205]onster bewacht, die im [214]erlies
  157. 1720 [131]"hausen. (NULL)enn str$u den (NULL)chatz willst oder
  158. 1730 data"auch nur den [203]erker passieren moech-
  159. 1740 [131]"test, musst str$u das (NULL)ngeheuer erst im
  160. 1750 data"[203]ampf besiegen.",@,"[197]s gibt auch grosse [200]allen an wichtigen
  161. 1760 [131]"(NULL)tellen in den chr$ewoelben. (NULL)ie enthalten
  162. 1770 data"keine [211]chaetze, doch immer treibt sich
  163. 1780 [131]"dort ein (NULL)onster herum. str$u musst haeu-
  164. 1790 data"fig durch [200]allen, weil es oft keinen
  165. 1800 [131]"anderen (NULL)eg gibt.",@,"left$allen und (NULL)erkerkammern haben ihre ei-
  166. 1810 data"gene [194]eleuchtung, waehrend es in den
  167. 1820 [131]"chr$aengen dunkel ist. (NULL)enn str$u ascackeln
  168. 1830 data"sparen willst, loesche sie vor [194]etreten
  169. 1840 [131]"eines (NULL)aumes.",@,"mid$e tiefer str$u die (NULL)reppen hinunter-
  170. 1850 data"steigst, desto gefaehrlicher werden die
  171. 1860 [131]"(NULL)ngeheuer - bis str$u auf den furchtbaren
  172. 1870 data"[196]rachen stoesst. [196]arum raet [196]ir der
  173. 1880 [131]"(NULL)auberer, solange str$u der chr$efahr noch
  174. 1890 data"gewachsen bist, in jedem [199]ewoelbe [196]eine
  175. 1900 [131]"atnusruestung zu verbessern und str$eine
  176. 1910 data"[203]ampferfahrung zu vergroessern, bis [196]u
  177. 1920 [131]"schliesslich in der (NULL)age bist, gegen
  178. 1930 data"den [196]rachen antreten zu koennen. [215]enn
  179. 1940 [131]"str$u ihn besiegt hast, sollst str$u wieder
  180. 1950 data"nach draussen kommen und dem [218]auberer
  181. 1960 [131]"den str$iamanten geben. str$ann wuerde er
  182. 1970 data"[196]ich freigeben und belohnen.
  183. 1980 [131]@,"(atnnmerkung des atnutors: str$er (NULL)auberer
  184. 1990 data"[218]erborax ist durch und durch boese. [197]r
  185. 2000 [131]"denkt nur an (NULL)eltherrschaft - aber
  186. 2010 data"nicht an seine [214]ersprechen. [196]arum traue
  187. 2020 [131]"ihm nicht. (NULL)ersuche aber nicht, str$ich
  188. 2030 data"ihm zu widersetzen, er wuerde [196]ich so-
  189. 2040 [131]"fort toeten. atnuch ist er sehr ungedul-
  190. 2050 data"dig und jaehzornig - es ist besser, ihn
  191. 2060 [131]"nicht zu lange warten zu lassen. (NULL)oll
  192. 2070 data"so einer die [215]eltherrschaft erhalten?
  193. 2080 [131]"str$och er ist maechtig, und es gibt tief
  194. 2090 data"unten nur eine einzige [215]affe, die ihn
  195. 2100 [131]"vernichten kann...)",@,"    (NULL)astenfunktionen:
  196. 2200 data@,"[214] - [214]orwaerts gehen
  197. 2210 [131]@,"(NULL) - (NULL)ueckwaerts gehen
  198. 2220 data@,"< - [196]rehung nach links
  199. 2230 [131]@,"> - str$rehung nach rechts
  200. 2240 data@,"[212] - [196]urch eine [212]uer gehen
  201. 2250 [131]@,"(NULL) - (NULL)affe ziehen/wegstecken
  202. 2260 data@,"[193] - [199]egner angreifen
  203. 2270 [131]@,"(NULL) - (NULL)chatztruhe oeffnen und right$nhalt"," "
  204. 2280 [131]"    nehmen, wenn er brauchbar ist.
  205. 2290 data@,"[197] - [198]ackel anzuenden
  206. 2300 [131]@,"(NULL) - ascackel loeschen
  207. 2310 data@,"[213] - [193]uf die [213]hr sehen, wenn man sie hat
  208. 2320 [131]@,"(NULL) - right$n den magischen (NULL)ristall sehen. valr"," "
  209. 2330 [131]"    zeigt, welches (NULL)onster hinter einer"," "
  210. 2340 [131]"    (NULL)uer lauert.
  211. 2350 data@,"[208] - [205]agisches [208]endel beschwoeren. [215]enn"," "
  212. 2360 data"    man es ueber einer [211]chatztruhe"," "
  213. 2370 data"    beschwoert, zeigt es eine [198]alle an.
  214. 2380 [131]@,"left$ - left$eiltrank trinken. (NULL)tellt die"," "
  215. 2390 [131]"    (NULL)ebensenergie wieder voll her.
  216. 2400 data@,"[211]hift/[200] - [200]eilsalbe auftragen. [197]rhoeht"," "
  217. 2410 data"    die [204]ebensenergie um 25 %
  218. 2420 [131]@,"asc - asceuerball werfen
  219. 2430 data@,"[194] - [194]litz schleudern
  220. 2440 [131]@,"(NULL) - (NULL)chutzzauber aktivieren
  221. 2450 data@,"[218] - [215]affenzauber aktivieren
  222. 2460 [131]@,"mid$ - (NULL)aehmungszauber aktivieren
  223. 2470 data@,"[205] - [205]egablast abfeuern
  224. 2480 [131]@,"str$ - str$iamanten uebergeben
  225. 2490 data@,"[201] - [201]nventur der [193]usruestung
  226. 2500 [131]@,"_ - (NULL)eit anhalten ((NULL)pielpause)
  227. 2510 data@,"[198]8 - [211]elbstmord (bei gezogener [215]affe)
  228. 2600 [131]@,"peekeim (NULL)erkermeister kannst str$u bestimmen,
  229. 2610 data"ob ein neues [204]abyrinth erstellt werden
  230. 2620 [131]"soll (ca. 5 (NULL)inuten str$auer), oder ob str$u
  231. 2630 data"das benutzen willst, welches gerade im
  232. 2640 [131]"lenomputer gespeichert ist. str$ann kannst
  233. 2650 data"[196]u zwischen fuenf [211]chwierigkeitsstufen
  234. 2660 [131]"waehlen, die die (NULL)aempfe beeinflussen.
  235. 3000 data@,"[214]iel [211]pass beim [211]pielen und einen guten","[203]ampf wuenscht
  236. 3010 [131]@,"right$ (NULL) (NULL) val (NULL) atn (NULL) (NULL) (NULL)"," "," (NULL) (NULL) asc (NULL) (NULL) atn (NULL) val ",@,*
  237.